(calc-embedded-finish-edit): Let math-expr-opers equal the function

math-standard-ops rather than the variable math-standard-opers.

diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el
index a064905943fe48ea7647490705e5c2d0c588e1ec..f31c19e33904e78dab5d4078387e27a9f90b278a 100644 (file)
--- a/lisp/calc/calc-embed.el
+++ b/lisp/calc/calc-embed.el
@@ -403,7 +403,7 @@
     (let ((val (save-excursion
                 (set-buffer (aref info 1))
                 (let ((calc-language nil)
-                      (math-expr-opers math-standard-opers))
+                      (math-expr-opers (math-standard-ops)))
                   (math-read-expr str)))))
       (if (eq (car-safe val) 'error)
          (progn